www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admin_danArticle\D_chk_add_class.asp

    



<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->

<!--#include file=inc_lanmu_bl.asp-->



<%
AJAXshowLoader()


%>



	<%
biao="[ND_danArticle_class]"
sys_content_type=trim(request("sys_content_type"))
pid=request("classid")&""

sys_content_type=trim(request("sys_content_type"))

set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),1)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if






err1=0

if request("nme")="" then
err1=1
%>
<script language="javascript">
alert("请填写分类名称");
history.go(-1);

</script>



<%
end if


if sys_content_type="" then
err1=1
%>
<script language="javascript">
alert("sys_content_type为空");
history.go(-1);

</script>



<%
end if

if isnumeric(request("orders"))=0 then



err1=1
%>
<script language="javascript">
alert("顺序号必须为数字");
history.go(-1);

</script>



<%




end if















if err1=0 then

  
set rs=server.CreateObject("adodb.recordset")


  
  
rs.open "select * from "&biao,conn,1,3
rs.addnew

rs("sys_content_type")=sys_content_type
rs("classname")=trim(request("nme"))
rs("orders")=request("orders")
rs("titleColor")=request("ColorModes")
rs("titleFont")=request("FontModes")


rs("content")=Request("Content")
rs("index_page_pic")=Request("ImageUrl")
rs("Uploadfile_list")=Trim(Request.Form("UploadFileList"))

classid=pid
if classid="xx" then
rs("parent_id")="0"
rs("parent_id_list")="0"
rs("deepth")=0
else

rs("parent_id")=classid

set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from "&biao&" where id="&classid,conn,1,3
pidlist=rs1("parent_id_list")

rs("parent_id_list")=pidlist&","&classid
sss1=ubound(split(pidlist&","&classid,","))
rs("deepth")=sss1
end if





rs("is_open_use_blank")=request("LinkTarget")
rs("is_link_class")=request("isoutLink")

rs("outlink")=request("TurnLinkUrl")
rs("update_time_for_make_html")=now()


%>
<script language="javascript">
alert("添加成功");
self.location="D_admin_Article_class.asp?sys_content_type=<%=sys_content_type%>";

</script>



<%

rs.update

end if



%>



<%
AJAXcloseLoader()
%>